home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / bt / randfile.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-06  |  537 b   |  25 lines
  1. 10 ' randfile.bas   sample random file
  2. 20 OPEN "test2.dat" AS #1 LEN=48
  3. 30 FIELD #1, 20 AS N$, 18 AS C$, 2 AS A$, 8 AS P$
  4. 40 FOR I = 1 TO 3
  5. 50 PRINT "Entry";I
  6. 60 INPUT "Name ";NAM$
  7. 70 INPUT "City";CITY$
  8. 80 INPUT "Age";AGE
  9. 90 INPUT "Phone";PHONE$
  10. 100 LSET N$ = NAM$
  11. 110 LSET C$ = CITY$
  12. 120 LSET A$ = MKI$(AGE)
  13. 130 LSET P$ = PHONE$
  14. 140 PUT #1, I
  15. 150 NEXT
  16. 160 CLS
  17. 170 FOR I = 3 TO 1 STEP -1
  18. 180 GET #1, I
  19. 190 NAM$ = N$
  20. 200 CITY$ = C$
  21. 210 AGE = CVI(A$)
  22. 220 PHONE$ = P$
  23. 230 PRINT I;NAM$;" ";CITY$;AGE;PHONE$
  24. 240 NEXT
  25.